home *** CD-ROM | disk | FTP | other *** search
/ PC Open 93 / PC Open 93 CD 2.bin / PDF / webdeveloper / lezione_4 / elencofoto.asp next >
Encoding:
Text File  |  2003-12-03  |  1.3 KB  |  66 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  2.  
  3. <html>
  4. <head>
  5.     <title>Le foto di Mario Rossi</title>
  6. </head>
  7.  
  8. <body>
  9.  
  10. <h1>Le mie foto preferite</h1>
  11.  
  12. Hai selezionato le foto che parlano di <%=request.QueryString("rfoto")%><br>
  13. <%
  14.  
  15. Const adOpenForwardOnly = 0
  16. Const adLockReadOnly = 1
  17.  
  18. Dim contatore
  19. Dim sql1,sql2
  20. Dim conn, rs
  21.  
  22. Set conn = Server.CreateObject("ADODB.Connection")
  23. conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/foto2.mdb")
  24.  
  25. sql1 = "SELECT count(nome) AS contatore FROM Foto WHERE Titolo like '%" & request.QueryString("rfoto") & "%'"
  26. sql2 = "SELECT * FROM Foto WHERE Titolo like '%" & request.QueryString("rfoto") & "%' ORDER BY Data DESC "
  27.  
  28. Set rs = Server.CreateObject("ADODB.RecordSet")
  29. rs.Open sql1, conn, adOpenForwardOnly, adLockReadOnly
  30.  
  31. contatore = rs("contatore")
  32.  
  33. rs.Close()
  34.  
  35. rs.Open sql2, conn, adOpenForwardOnly, adLockReadOnly
  36.  
  37. %>
  38.  
  39. Sono presenti <%=contatore%> foto che soddisfano i criteri di ricerca<br><br>
  40.  
  41. <%
  42.  
  43. do until rs.eof
  44.  
  45. %>
  46.  
  47. <li><a href="dettagliofoto.asp?nome=<%=rs("Nome")%>"><%=rs("Titolo")%>, scattata a <%=rs("Luogo")%></a></li>
  48.  
  49. <%
  50.  
  51.     rs.movenext
  52. loop
  53.  
  54. 'rs.close
  55. 'set rs = nothing
  56. 'conn.close
  57. 'set conn = nothing
  58.  
  59. %>
  60.  
  61. </ul>
  62.  
  63. </body>
  64. </html>
  65.  
  66.